home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / fapx / fapxlgin.plp < prev    next >
Text File  |  1991-10-18  |  3KB  |  161 lines
  1. /************************************************************************
  2. *    ログイン処理                            *
  3. *************************************************************************/
  4. /*    初期設定処理    */
  5. %initmode
  6.     {
  7.     rscs    ({Yes});
  8.     xon    ({Yes});
  9.     ctrl    ({Yes});
  10.     esc    ({Yes});
  11.     stopbit    ({1});
  12.     parity    ({None});
  13.     lineend    ({CR});
  14.     flyingx    ({No});
  15.     dataleng({8bit});
  16.     logprint({No});
  17.     flyline    ({3});
  18.     sendtype({Line});
  19.     dispecho({Yes});
  20.     setoak    ({J});
  21.     };
  22.  
  23. /*  type @p */
  24. %typeCNIF
  25.     {
  26.     type({C NIF\n});
  27.     wait    (
  28.         Wtime2,callrd1,
  29.         {HOST NAME?\n*},typeCNIF,
  30.         {Enter},
  31.         );
  32.     };
  33.  
  34.         
  35. %Road2p    {
  36.     wait    (6,{type({@P\n})});
  37.     wait    (Wtime2,callrd1,
  38.         {HOST NAME?\n*},typeCNIF);
  39.     };
  40.  
  41. /*  type .00+ and retry */
  42. %type00    {
  43.     wait(2);
  44.     type({.00+});
  45.     wait    (
  46.         Wtime2,callrd2,
  47.         {71+},callrd2,
  48.         {46+},type00,
  49.         {+\n00+},type00,
  50.         {Enter},
  51.         );
  52.     };
  53.  
  54. %callrd1{
  55.     case    (ROAD1={},
  56.         {Yes},callrd2,
  57.         {No},
  58.         {
  59.         display({\nＲＯＡＤ１に電話をかけます\n});
  60.         case    (@nth(ROAD1,2,{/})={1200},
  61.             {Yes},
  62.             {
  63.             baud(1200);
  64.             dialone({AT}|@nth(MODEM,1,{/})|
  65.                 {D}|DIAL|@nth(ROAD1,1,{/}),type00,callrd2);
  66.             },
  67.             {No},
  68.             {
  69.             baud(@getchar(@nth(MODEM,2,{_}),1,4));
  70.             dialone({AT}|@nth(MODEM,1,{/})|@nth(MODEM,2,{/})|
  71.                 {D}|DIAL|@nth(ROAD1,1,{/}),type00,callrd2);
  72.             }
  73.             );
  74.         }
  75.         );
  76.     };
  77.  
  78. %callrd2{
  79.     case    (ROAD2={},
  80.         {Yes},callrd1,
  81.         {No},
  82.         {
  83.         display({\nＲＯＡＤ２に電話をかけます\n});
  84.         baud(@getchar(@nth(MODEM,2,{_}),1,4));
  85.         dialone({AT}|@nth(MODEM,1,{/})|@nth(MODEM,2,{/})|
  86.             {D}|DIAL|ROAD2,Road2p,callrd1);
  87.         }
  88.         );
  89.     };
  90.  
  91. /************************************************************************
  92. *    オートパイロット開始処理                    *
  93. *************************************************************************/
  94. %AUTOLOGIN
  95.     {
  96.     display({ＮＩＦＴＹへの接続を開始します\n\n});
  97.     footnote({ＮＩＦＴＹへの接続処理をしています});
  98.     initmode;                /* 各種初期設定 */
  99.     dispoff({Yes});
  100.     command({del }|TEMP2|{*.eml});    /* 前回のログファイルを削除する */
  101.     command({del }|TEMP2|{*.bml});    /* 前回のログファイルを削除する */
  102.     dispoff({No});
  103.  
  104.     case    (ROAD1={}&&ROAD2={}||ID={},
  105.         {Yes},
  106.         {
  107.         display({電話番号かユーザーＩＤが指定されていません});
  108.         footnote({電話番号とユーザーＩＤを指定して下さい});
  109.         SNDMSG({okasi_f.snd});
  110.         },
  111.         {No},
  112.         {
  113.         callrd2;
  114.         WAITCHAR(Wtime2,{Connection-ID  --->},{type({SVC\n})});
  115.         wait    (
  116.             Wtime2,{AbortOff({\nホストの反応がおかしいよぉ～\n})},
  117.             {Enter User-ID  --->},{type(ID|{\n})},
  118.             {\n INPUT Error},
  119.             {AbortOff(
  120.                 {\nあれぇ？『SVC』受け付けてくれないよぉ～\n})}
  121.             );
  122.         wait    (
  123.             Wtime2,    {AbortOff({\nホストの反応が鈍いよぉ～\n})},
  124.             {Enter Password --->},
  125.             {
  126.             case    (
  127.                 PassWord={*}||PassWord={},
  128.                 {Yes},
  129.                 {
  130.                 SNDMSG({nyuryo_f.snd});
  131.                 type(@input(
  132.                     {パスワードを入力してください})|{\n});
  133.                 },
  134.                 {No},
  135.                 {type(PassWord|{\n})}
  136.                 );
  137.             wait    (
  138.                 Wtime2,
  139.                 {AbortOff({\nホストの反応が鈍いよぉ～\n})},
  140.                 {\n Password ERROR},
  141.                 {AbortOff(
  142.                     {\nパス・ワードがおかしいですよ？\n})},
  143.                 {NIFTY-Serve     TOP},
  144.                 {WAITABORT(Wtime2)},
  145.                 {FJCUG トップ},        /* FJCUG */
  146.                 GONIF,            /* FJCUG */
  147.                 {\n＞},{type({\n});TOPMENU}
  148.                 );
  149.             type({SET MENU ON\n});    WAITABORT(Wtime2);
  150.             type({SET FF OFF\n});    WAITABORT(Wtime2);
  151.             type({SET PAGE OFF\n});    WAITABORT(Wtime2);
  152.             },
  153.             {\n User-ID Error},
  154.             {AbortOff({\nＩＤが間違ってませんか？\n})}
  155.             );
  156.         }
  157.         );
  158.     };
  159.  
  160. AUTOLOGIN;
  161.